home *** CD-ROM | disk | FTP | other *** search
/ PCBoard 15.1 Demo / PCBoard v15.1 DEMO - Clark Dev. Co (1994) - Disk 1 of 1.imd / PCBDISK.EXE / GEN / SCRIPT2.PPS < prev    next >
Encoding:
Text File  |  1994-02-14  |  3.3 KB  |  114 lines
  1. string comments[5]
  2. string choices[4]
  3. string enter_comment
  4. string msgbase
  5. string filearea
  6. string other
  7. integer counter
  8. integer maxlength
  9.  
  10. ;-------------------------------------------
  11. ; Initialize variables
  12. ;-------------------------------------------
  13.  
  14. enter_comment = "Y"
  15. comments[0] = " "
  16. choices[1] = "  @X0E1. @X0FEvery call"
  17. choices[2] = "  @X0E2. @X0FFrequently"
  18. choices[3] = "  @X0E3. @X0FRarely    "
  19. choices[4] = "  @X0E4. @X0FNot at all"
  20. msgbase = 4
  21. filearea = 4
  22. other = 4
  23. counter = 1
  24. maxlength = 72
  25. enter_comment = yeschar()
  26.  
  27. ;
  28. ; Ask about message base usage
  29. ;
  30. println
  31. println "@X50▓▒░ @X5F   Message Bases   @X50 ░▒▓@X07"
  32. gosub PrintChoices
  33. inputstr "Which option best describes your use of the message bases on this system",msgbase,@X0A,1,"1234",fieldlen+lfbefore+lfafter
  34. msgbase = right(choices[msgbase],10)
  35.  
  36. ;
  37. ; Ask about file area usage
  38. ;
  39. println
  40. println "@X50▓▒░ @X5F   File Areas   @X50 ░▒▓@X07"
  41. gosub PrintChoices
  42. inputstr "Which option best describes your use of the file areas on this system",filearea,@X0A,1,"1234",fieldlen+lfbefore+lfafter
  43. filearea = right(choices[filearea],10)
  44.  
  45. ;
  46. ; Ask about usage of other features on the system
  47. ;
  48. println
  49. println "@X50▓▒░  @X5F  Other Features  @X50  ░▒▓@X07"
  50. gosub PrintChoices
  51. inputstr "Which option best describes your use of the other features of this system",other,@X0A,1,"1234",fieldlen+lfbefore+lfafter
  52. other = right(choices[other],10)
  53.  
  54. ;
  55. ; Ask user if they want to enter additional comments
  56. ;
  57. newlines 2
  58. inputyn "Do you want to leave additional comments about this system", enter_comment, @X0A
  59.  
  60. ;
  61. ; If user wants to leave additional comments, inform user how to enter
  62. ; the comments andn then prompt for up to 5 lines of input.
  63. ;
  64.  
  65. if (upper(enter_comment) = yeschar()) then
  66.    newlines 2
  67.    println "@X0B@X00You may enter @X0F5@XFF lines of @X0F", maxlength, "@XFF characters for your comments."
  68.    println "Press ENTER on a blank line to finish entering your comments."
  69.    println
  70.  
  71.    while (counter < 6 & comments[counter-1] != "") do
  72.       print "@X0E", counter, ": "
  73.       inputstr "_", comments[counter],@X03,maxlength,mask_ascii(),wordwrap+lfafter
  74.       counter=counter+1
  75.    endwhile
  76. endif
  77.  
  78. ;
  79. ; Output the answers the user gave to the ANSWER file of the questionnaire.
  80. ;
  81. fputln 0," "
  82. fputln 0,"  Usage"
  83. fputln 0,"  ----------------------------------------"
  84. fputln 0," "
  85. fputln 0,"    Message base  : "+msgbase
  86. fputln 0,"    File area     : "+filearea
  87. fputln 0,"    Other features: "+other
  88. fputln 0," "
  89. fputln 0,"  Comments"
  90. fputln 0,"  -----------------------------------------"
  91. fputln 0,"    "+comments[1]
  92. fputln 0,"    "+comments[2]
  93. fputln 0,"    "+comments[3]
  94. fputln 0,"    "+comments[4]
  95. fputln 0,"    "+comments[5]
  96. fputln 0," "
  97.  
  98. end
  99.  
  100. ;=============================================================================
  101.  
  102. ;*************************************************************************
  103. ;*     Routine: PrintChoices                                             *
  104. ;* Description: Prints the valid choices for the multiple choice         *
  105. ;*              questions.                                               *
  106. ;*************************************************************************
  107. :PrintChoices
  108.    println
  109.    println choices[1]
  110.    println choices[2]
  111.    println choices[3]
  112.    println choices[4]
  113. return
  114.